﻿<!-- #Include File="Conn.asp" -->
<%
Dim SiteName,SiteTitle,SiteUrl,Fso_Sys,SiteKeywords,SiteDescription,LogoUrl,LogoWidth,LogoHeight,SiteAuthor,WebmasterName,WebmasterEmail,Web_IsCreatIndexShow,IndexShow,Web_IndexShowFile,Web_IsCreatIndex,IndexFile,Web_IndexFile,AdminFolder,Web_IndexShowSkinID,Web_IndexShowMoban,Web_IndexSkinID,Web_IndexMoban,SiteCopyRight,IsOpen,Web_TimOpen,WebWords,Web_BadWords,Web_LockIP,Web_AdminCodes,SessionTimeout,PageEffects,PageSecurity,EnableSoftKey,Jqqonline,DataBackPath,UploadSetting,iUploadSetting,MailObject,MailServer,MailServerUserName,MailServerPassWord,MailDomain,rsSkin,sqlSkin,Body_Label,Tmpstr,SkinID,Rs,Sql,RsConfig,SqlConfig

Call GetSiteConfig()

Function GetSiteConfig()
	SqlConfig = "select * from Config"
	Call Exec(RsConfig,SqlConfig,2)
	If RsConfig.Bof And RsConfig.Eof Then
		RsConfig.Close
		Set RsConfig = Nothing
		ClsErr ("&#32593;&#31449;&#37197;&#32622;&#25968;&#25454;&#20002;&#22833;&#65281;&#31995;&#32479;&#26080;&#27861;&#27491;&#24120;&#36816;&#34892;&#65281;")
	Else
		SiteName = RsConfig("SiteName")
		SiteTitle = RsConfig("SiteTitle")
		SiteUrl = RsConfig("SiteUrl")
		Fso_Sys = RsConfig("Fso_Sys")
		SiteKeywords = RsConfig("SiteKeywords")
		SiteDescription = RsConfig("SiteDescription")
		LogoUrl = RsConfig("LogoUrl")
		LogoWidth = RsConfig("LogoWidth")
		LogoHeight = RsConfig("LogoHeight")
		SiteAuthor = RsConfig("SiteAuthor")
		WebmasterName = RsConfig("WebmasterName")
		WebmasterEmail = RsConfig("WebmasterEmail")
		Web_IsCreatIndexShow = RsConfig("Web_IsCreatIndexShow")
		IndexShow = RsConfig("IndexShow")
		Web_IndexShowFile = RsConfig("Web_IndexShowFile")
		Web_IsCreatIndex = RsConfig("Web_IsCreatIndex")
		IndexFile = RsConfig("IndexFile")
		Web_IndexFile = RsConfig("Web_IndexFile")
		AdminFolder = RsConfig("AdminFolder")
		Web_IndexShowSkinID = RsConfig("Web_IndexShowSkinID")
		Web_IndexShowMoban = RsConfig("Web_IndexShowMoban")
		Web_IndexSkinID = RsConfig("Web_IndexSkinID")
		Web_IndexMoban = RsConfig("Web_IndexMoban")
		SiteCopyRight = RsConfig("SiteCopyRight")
		IsOpen = RsConfig("IsOpen")
		Web_TimOpen = RsConfig("Web_TimOpen")
		WebWords = RsConfig("WebWords")
		Web_BadWords = RsConfig("Web_BadWords")
		Web_LockIP = RsConfig("Web_LockIP")
		Web_AdminCodes = RsConfig("Web_AdminCodes")
		SessionTimeout = RsConfig("SessionTimeout")
		PageEffects = RsConfig("PageEffects")
		PageSecurity = RsConfig("PageSecurity")
		EnableSoftKey = RsConfig("EnableSoftKey")
		Jqqonline = RsConfig("Jqqonline")
		DataBackPath = RsConfig("DataBackPath")
		UploadSetting  =  Split(RsConfig("UploadSetting"),",")
		MailObject = RsConfig("MailObject")
		MailServer = RsConfig("MailServer")
		MailServerUserName = RsConfig("MailServerUserName")
		MailServerPassWord = RsConfig("MailServerPassWord")
		MailDomain = RsConfig("MailDomain")
		RsConfig.Close
		Set RsConfig = Nothing
	End If
End Function
%>